home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XUPPER.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-09  |  263b  |  16 lines
  1. {$IBoDecl}
  2. {$IUpper}
  3. {$ICenter}
  4.  
  5. BEGIN
  6.  
  7.    ClrScr;
  8.    Write ( Center ('Enter any string (''quit'' quits)',80,' '));
  9.    window(1,2,80,25);
  10.    repeat
  11.       readln(S);
  12.       Writeln( Upper(S) );
  13.    until Upper(S) = 'QUIT';
  14.    window(1,1,80,25);
  15.  
  16. END.